home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 45
/
64er_Magazin_Sonderheft_45_19xx_Markt__Technik_de_Side_A.d64
/
listing 9
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
386b
|
9 lines
10 printchr$(147) :rem bildschirm loeschen
20 poke 2040,13 :rem daten sprite 0 aus block 13
30 for i=0 to 62:poke 832+i,129:next:rem spritedaten eintragen
40 v=53248 :rem startadresse des videochip
50 poke v+21,1 :rem sprite 0 einschalten
60 poke v+39,1 :rem sprite 0 farbe geben
70 poke v+1,100 :rem sprite 0 y-position
80 poke v,100:poke v+16,0:rem sprite 0 x-position